﻿Public Class RTDValueInfo

    Private _ID As Integer
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    Private _Name As String
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(ByVal value As String)
            _Name = value
        End Set
    End Property

    Private _ListNo As Integer
    Public Property ListNo() As Integer
        Get
            Return _ListNo
        End Get
        Set(ByVal value As Integer)
            _ListNo = value
        End Set
    End Property


    Private _typeName As String
    Public Property typeName() As String
        Get
            Return _typeName
        End Get
        Set(ByVal value As String)
            _typeName = value
        End Set
    End Property

    Private _dataType As Integer
    Public Property dataType() As Integer
        Get
            Return _dataType
        End Get
        Set(ByVal value As Integer)
            _dataType = value
        End Set
    End Property

    Private _DeviceID As String
    Public Property DeviceID() As String
        Get
            Return _DeviceID
        End Get
        Set(ByVal value As String)
            _DeviceID = value
        End Set
    End Property


    Private _DeviceName As String
    Public Property DeviceName() As String
        Get
            Return _DeviceName
        End Get
        Set(ByVal value As String)
            _DeviceName = value
        End Set
    End Property

    Private _NetAddress As Byte
    Public Property NetAddress() As Byte
        Get
            Return _NetAddress
        End Get
        Set(ByVal value As Byte)
            _NetAddress = value
        End Set
    End Property

    Private _offset As Integer
    ''' <summary>
    ''' 最近1小时数据中的位置
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property offset() As Integer
        Get
            Return _offset
        End Get
        Set(ByVal value As Integer)
            _offset = value
        End Set
    End Property

    Private _RToffset As Integer
    ''' <summary>
    ''' 实时数据中的位置
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property RToffset() As Integer
        Get
            Return _RToffset
        End Get
        Set(ByVal value As Integer)
            _RToffset = value
        End Set
    End Property


    Private _Length As Integer

    ''' <summary>
    ''' 数量类型
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks>
    ''' 0表示Bool(1字节)
    ''' 1表示字节(1字节) 
    ''' 2表示Short(2字节)
    ''' 4表示Single(4字节)
    ''' </remarks>
    Public Property length() As Integer
        Get
            Return _Length
        End Get
        Set(ByVal value As Integer)
            _Length = value
        End Set
    End Property


    Private _bOffset As Integer
    ''' <summary>
    ''' 最近1小时数据中数据位的位置
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property bOffset() As Integer
        Get
            Return _bOffset
        End Get
        Set(ByVal value As Integer)
            _bOffset = value
        End Set
    End Property

    Private _bRTOffset As Integer
    ''' <summary>
    ''' 实时数据中数据位的位置
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property bRTOffset() As Integer
        Get
            Return _bRTOffset
        End Get
        Set(ByVal value As Integer)
            _bRTOffset = value
        End Set
    End Property


    Private _color As Color
    Public Property color() As Color
        Get
            Return _color
        End Get
        Set(ByVal value As Color)
            _color = value
        End Set
    End Property


    Private _colorBar As String
    Public Property colorBar() As String
        Get
            Return _colorBar
        End Get
        Set(ByVal value As String)
            _colorBar = value
        End Set
    End Property



    Private _maxValue As Single
    Public Property maxValue() As Single
        Get
            Return _maxValue
        End Get
        Set(ByVal value As Single)
            _maxValue = value
        End Set
    End Property


    Private _minValue As Single
    Public Property minValue() As Single
        Get
            Return _minValue
        End Get
        Set(ByVal value As Single)
            _minValue = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return _Name
    End Function

End Class
